null {3}   3 .SCREEN LOCATOR
  10 NT=0;clear ;print "STOP CASSETTE!";print 
  20 input "input SCREEN MEMORY LOCA- TION FROM 16384 to 19902: "A
  30 if A<16384goto 20
  40 if A>19902goto 20
  50 if Adiv 2mul 2#Aprint ;print "IT MUST BE AN EVEN NUMBER.";goto 20
  60 clear ;for C=1to 5
  70 %(A)=%(A)-21846;for B=1to 300;next B;%(A)=%(A)+21846;for B=1to 300;next B;next C
  80 goto 20
:return ;run 